home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_2 / twview91.zip / HEADERS.INC < prev    next >
Text File  |  1992-03-11  |  2KB  |  81 lines
  1. const
  2. { general constants }
  3.   error      = maxint;
  4.   author     = 'Copyright 1991 by Robert Weaver.  All Rights Reserved.';
  5.   source     = 'For latest versions, call 510-376-1554';
  6.   version    = 'version 0.91 (dos)';
  7.   FileNotFound =   2;
  8.   abort      = 'abort';
  9. { universe dimensions }
  10.   maxSector  = 1000;
  11.   maxWarps   = 6;
  12.   maxPorts   = 420;
  13.   maxNote    = 40;
  14.   NoteSize   = 40;
  15. { sector (warp number) flag }
  16.   UnExplored = 0;
  17. { stuff flags }
  18.   NotAPort   = -1;
  19.   Class0     = 8;
  20. { etc flags }
  21.   NoteExists = 1;
  22.   IsPort     = 2;
  23.   HasFighters= 4;
  24.   SpaceLane  = 8;
  25.   Avoid      = 16;
  26.   Stardock   = 128;
  27.   Nothing    = 0;
  28.  
  29. type
  30.   sector     = 1..maxSector;
  31.   dist = record
  32.            d : integer;
  33.            s : sector;
  34.          end;
  35.   distanceArray = array [ sector ] of dist;
  36.   sectorscanner = array [ sector ] of boolean;
  37.   warpindex  = 0..maxWarps;
  38.   stuff      = -1..8;      { 8 = class 0; xxx (binary) Equip, Org, Fuel }
  39.                            {-1 = not a port   1 = sell, 0 = buy         }
  40.   SectorIndex  = 0..maxSector;
  41.   SectorInfo = record
  42.                  number   : 0..maxWarps;
  43.                  data     : array [ 1..maxwarps ] of sector;
  44.                  porttype : stuff;
  45.                  etc      : integer;
  46.                end;
  47.  
  48.   note = record
  49.            reference : sector;
  50.            info      : string [ NoteSize ];
  51.          end;
  52.   NoteIndex = 0..MaxNote;
  53.   NoteList = record
  54.                top  : NoteIndex;
  55.                data : array [1..MaxNote] of note;
  56.              end;
  57.  
  58.   goods = ( Fuel, Organics, Equipment );
  59.   GoodsArray = array [ goods ] of integer;   { + = selling; - = buying }
  60.   percent = 0..100;
  61.   PercentArray = array [ goods ] of percent;
  62.   portSales = record
  63.                 where : sector;
  64.                 amts  : goodsArray;
  65.                 usage : percentArray;
  66.                 change: goodsArray;
  67.               end;
  68.   PortPtr = 1..MaxPorts;
  69.   PortIndex = 0..MaxPorts;
  70.   PortList  = record
  71.                 top  : PortIndex;
  72.                 data : array [ PortPtr ] of PortSales;
  73.               end;
  74.  
  75.   SectorArray = array [ sector ] of SectorInfo;
  76.   TheVoid = record
  77.               dock    : SectorIndex;
  78.               notes   : NoteList;
  79.               Ports   : PortList;
  80.               sectors : SectorArray;
  81.             end;